vbs实现恶搞无限弹窗,复制粘贴就能用 |
您所在的位置:网站首页 › red zone病毒下载 › vbs实现恶搞无限弹窗,复制粘贴就能用 |
vbs简单实现弹窗
直接新建txt文档,复制粘贴下面代码: do a =msgbox("你怕是个ZZ吧?",vbYesNoCancel,"一份认真的问卷调查") if a =vbYes then msgbox "emmmm,还算有点自知之明",,"恭喜你,真正的认识了自己!" exit do elseif a =vbNo then b =msgbox("心里没点AC数吗?",vbYesNo,"不要想太多,你就是!") if b =vbYes then msgbox "没点数,自己照照镜子啊!",,"这就是你学习好的原因啊" else msgbox "能认识错误还是好的",,"MDZZ" end if else d =msgbox("取消你吗呢",vbYesNo,"还想点取消?") if d =vbYes then msgbox "取消也没用",,"这是一个轮回" else msgbox "不取消就赶紧承认吧",,"ZZ" end if end if loop 保存,修改文件格式为vbs,确认,打开。 “”双引号里面可以随意修改内容,看别人很多都是写表白的,作为一名钢铁直男,我觉得还是现在这样比较好玩,试试发给妹子会不会被打死,如果没更新博客应该就是当场去世了~
注意:第五行的 exit do 表示退出 就是说第一次点击yes之后可以点确定退出弹窗,否则无限循环。(把exit do这句去掉就是死循环了,但是可以通过结束进程来关闭,这个就不多说了,有问题多百度!)
|
今日新闻 |
推荐新闻 |
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |